Amiga Plus 2002 #11/Amiga Plus CD - 2002 - No. 11.iso/Tools/Development/WarpSDL/Install

Text File | 2002-10-27 | 6.4 KB | 242 lines

; $VER: Installation script for WarpSDL 0.4 (24. October 2002)
; © Adam Waldenberg

; REMOVE BELOW FOR PRE-44 INSTALLER!


; check if we are running under correct OS

(if (= 0 1)

    (
        (effect "center" "horizontal" $889999 $ffffff)
    )
)

(if (< (/ (getversion) 65536) 39)

    (
        (abort "Sorry, WarpSDL requires AmigaOS V39 or better!")
    )
)

; error handling

(onerror

    (if (> @ioerr 0)

        (
            (message
                ("An error occurred during installation.")
            )
        )
    )

    (exit (quiet))
)

(welcome
    "Welcome to the installation of WarpSDL, the SDL compatible "
    "media library for AmigaOS computers.\n\nCopyright © 2002 Adam Waldenberg."
)

    ; code follows.
    (copylib
        (prompt "Installing warpsdl.library.")
        (help "Will copy the main library to your LIBS: directory.")
        (confirm "average")
        (source "warpsdl.library")
        (dest "LIBS:")

        (optional
            "fail"
            "askuser"
        )
    )

    (set @default-dest (cat "LIBS:"))

    (makedir "ENV:WarpSDL")
    (makedir "ENVARC:WarpSDL")

    (COMPLETE 20)

    (set #globalstr
        (cat
            "(If you installed a previous version of WarpSDL it is fetched from "
            "your ENV: dir, otherwhise the recommended value is set.)"
        )
    )

    (set #globhelpstr
        (cat
            "On PPC the priority values are translated into NICE values by subtracting "
            "the priority with (priority*2) and then dividing it with 5. So setting "
            "the priority to 5, will give you a PPC task that has the nicevalue -1. "
            "Setting it to 100-128 will give you a PPC task with the nicevalue -20, "
            "and so on.\n\n"
            "Setting the DEF_MOTHERTASK_PRI higher than DEF_SUBTASK_PRI can result in "
            "sound that 'cuts' (if cpu consumption is at max).\n\n"
            "Setting the DEF_SUBTASK_PRI higher than DEF_MOTHERTASK_PRI can result in "
            "the game runing slower (if cpu consumption is at max), as the maintask won't "
            "get all the cpu power it might need.\n\n"
            "Recommended is to set both values the same or just use the defaults."
        )
    )

    (if (= (exists "ENV:warpsdl/DEF_MOTHERTASK_PRI") 0)
        (
            (set #envstr (cat "0"))
        )
        (
            (set #envstr
                (cat
                    (getenv
                        "warpsdl/DEF_MOTHERTASK_PRI"
                    )
                )
            )
        )
    )

    (set #result
        (askstring
            (prompt
                "What do you want to set the warpsdl/DEF_MOTHERTASK_PRI env-variable to? "
                #globalstr
            )

            (help
                "This is what the default priority of the main/mothertasks that use WarpSDL "
                "will be set to. Unless they override it, that priority will be used.\n\n"
                #globhelpstr
            )

            (default #envstr)
        )
    )

    (run "setenv ENV:WarpSDL/DEF_MOTHERTASK_PRI" #result)
    (run "setenv ENVARC:WarpSDL/DEF_SUBTASK_PRI" #result)

    (COMPLETE 50)

    (if (= (exists "ENV:warpsdl/DEF_SUBTASK_PRI") 0)
        (
            (set #envstr (cat "5"))
        )
        (
            (set #envstr
                (cat
                    (getenv
                        "warpsdl/DEF_SUBTASK_PRI"
                    )
                )
            )
        )
    )

    (set #result
        (askstring
            (prompt "What do you want to set the warpsdl/DEF_SUBTASK_PRI env-variable to? "
                    #globalstr
            )

            (help
                "This is what the default priority of the subtasks that use WarpSDL "
                "will be set to. Unless they override it, that priority will be used.\n\n"
                #globhelpstr
            )

            (default #envstr)
        )
    )

    (run "setenv ENV:WarpSDL/DEF_SUBTASK_PRI" #result)
    (run "setenv ENVARC:WarpSDL/DEF_SUBTASK_PRI" #result)

    (COMPLETE 70)

    (if (= (exists "ENV:warpsdl/DEF_CD0_NAME") 0)
        (
            (set #envstr (cat "CD0:"))
        )
        (
            (set #envstr
                (cat
                    (getenv
                        "warpsdl/DEF_CD0_NAME"
                    )
                )
            )
        )
    )

    (set #result
        (askstring
            (prompt "What do you want to set the warpsdl/DEF_CD0_NAME env-variable to? "
                    #globalstr
            )

            (help
                "Used to configure and show warpsdl where your primary CD drive is.\n"
                "Most often, applications use the primary drive, so setting DEF_CD0_NAME "
                "to \"CD4:\" will tell warpsdl applications to use CD4: as the primary "
                "CD drive.\n\n"

                "If you don't set DEF_CD0_NAME you tell warpsdl applications that you "
                "don't have a primary drive.\n\n"

                "You may set any DEF_CDX_NAME variable, where X is a number between 0-15. "
                "DEF_CD0... is the primary and DEF_CD1... is the secondary, and so on."
            )

            (default #envstr)
        )
    )

    (run "setenv ENV:WarpSDL/DEF_CD0_NAME" #result)
    (run "setenv ENVARC:WarpSDL/DEF_CD0_NAME" #result)

    (if (= (exists "ENV:warpsdl/DEF_FORCEDBUFFAGA") 0)
        (
            (set #envstr (cat "0"))
        )
        (
            (set #envstr
                (cat
                    (getenv
                        "warpsdl/DEF_FORCEDBUFFAGA"
                    )
                )
            )
        )
    )

    (set #result
        (askstring
            (prompt "What do you want to set the warpsdl/DEF_FORCEDBUFFAGA env-variable to? "
                    #globalstr
            )

            (help
        "Use this to force WarpSDL to use doublebuffering on AGA screens even "
        "if the application is made for single-buffering. This is done by storing "
                "the updated buffer in a \"scratchbuffer\"... This scratchbuffer is later "
                "applied to the old frame... Letting the application use the doublebuffered "
                "screen as a single-buffered one. :)... This can cause a slowdown when "
                "full-screen updates occur."
            )

            (default #envstr)
        )
    )

    (run "setenv ENV:WarpSDL/DEF_FORCEDBUFFAGA" #result)
    (run "setenv ENVARC:WarpSDL/FORCEDBUFFAGA" #result)

    (COMPLETE 100)

(exit)